unit AppSettings;

{$mode objfpc}{$H+}

//========================================================================================
//
// Unit : appsettings.pas
//
// Description : This module provides
//
// Called By : Init : Inigtialise
//             Main : TfrmMain.mnuSettingsClick
//
// Calls : TfrmMain.FormShow
//
// Ver. : 1.00
//
// Date : 27 Dec 2016
//
//========================================================================================

interface

uses
  Classes, FileInfo, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  Buttons, StdCtrls, ExtCtrls;

type

  { TfrmAppSettings }

  TfrmAppSettings = class(TForm)
    bbtOK: TBitBtn;
    bbtCancel: TBitBtn;
    bbtHelp: TBitBtn;
    chkLoadLastProject: TCheckBox;
    ledtDefaultOutputFilePath: TLabeledEdit;
    ledtDefaultProjectPath: TLabeledEdit;
    ledtHULogUtilsPath: TLabeledEdit;
    ledtDefaultInputFilePath: TLabeledEdit;
    procedure bbtCancelClick(Sender: TObject);
    procedure bbtOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    fAppName : string;
    fAppVersion : string;
    fAppDate : string;
    fAppPath : string;
  public
    { public declarations }
    function GetAppName: string;
    procedure SetAppName;
    function GetAppVersion: string;
    procedure SetAppVersion;
    function GetAppDate: string;
    procedure SetAppDate;
    function GetAppPath: string;
    procedure SetAppPath (strPath:string);
  published
     property AppName: string read GetAppName;
     property AppVersion: string read GetAppVersion;
     property AppDate: string read GetAppDate;
     property AppPath: string read GetAppPath
                                        write SetAppPath;
  end;// Type

const
  cstrAppName = 'HULogUtils.exe';
  cstrAppVersion = '1.0.0.0';
  cstrAppDate = '26 Dec 2016';

var
  frmAppSettings: TfrmAppSettings;

implementation

{$R *.lfm}

uses
  Main;

//========================================================================================
//          PRIVATE CONSTANTS
//========================================================================================

//========================================================================================
//          PUBLIC CONSTANTS
//========================================================================================

//========================================================================================
//          PRIVATE VARIABLES
//========================================================================================

//========================================================================================
//          PUBLIC VARIABLES
//========================================================================================

//========================================================================================
//          PRIVATE ROUTINES
//========================================================================================

//========================================================================================
//          PUBLIC ROUTINES
//========================================================================================
procedure TfrmAppSettings.SetAppName;
begin
  fAppName := cstrAppName;
end;// procedure TfrmSettings.SetAppName

//========================================================================================
procedure TfrmAppSettings.SetAppVersion;
begin
  fAppVersion := cstrAppVersion;
end;// procedure TfrmSettings.SetAppVersion

//========================================================================================
procedure TfrmAppSettings.SetAppDate;
begin
  fAppDate := cstrAppDate;
end;// procedure TfrmAppSettings.SetAppDate

//========================================================================================
//          PROPERTY ROUTINES
//========================================================================================
function TfrmAppSettings.GetAppName : string;
begin
  Result := fAppName;
end;// function TfrmSettings.GetAppName

//========================================================================================
function TfrmAppSettings.GetAppVersion : string;
begin
  Result := fAppVersion;
end;// function TfrmSettings.GetAppVersion

//========================================================================================
function TfrmAppSettings.GetAppDate : string;
begin
  Result := fAppDate;
end;// function TfrmAppSettings.GetAppDate

//========================================================================================
function TfrmAppSettings.GetAppPath : string;
begin
  Result := fAppPath;
end;// function TfrmAppSettings.GetAppPath

//----------------------------------------------------------------------------------------
procedure TfrmAppSettings.SetAppPath (strPath:string);
begin
  fAppPath := strPath +'\';
end;// procedure TfrmAppSettings.SetAppPath

//========================================================================================
//          MENU ROUTINES
//========================================================================================

//========================================================================================
//          COMMAND BUTTON ROUTINES
//========================================================================================
procedure TfrmAppSettings.bbtOKClick(Sender: TObject);
begin

end;// procedure TfrmAppSettings.bbtOKClick

//========================================================================================
procedure TfrmAppSettings.bbtCancelClick(Sender: TObject);
begin

end;// procedure TfrmAppSettings.bbtCancelClick

//========================================================================================
//          CONTROL ROUTINES
//========================================================================================

//========================================================================================
//          FILE ROUTINES
//========================================================================================

//========================================================================================
//          FORM ROUTINES
//========================================================================================
procedure TfrmAppSettings.FormCreate(Sender: TObject);
begin

  SetAppName;
  SetAppVersion;
  SetAppDate;

end;// procedure TfrmAppSettings.FormCreate

//========================================================================================
end.// unit AppSettings

